'************************************************

'ADF4118 PLL Ver0.0.1

'Freq=1193.2MHz'

'2007.02.14

'JA4LAO_Tuneo.Ito

'AT90S2313-10

'************************************************



Config Portd = Output



Dim I As Byte

Dim Pllcmd(5) As Long



Pllcmd(1) = &B000000000000011000111                         'INITIALIZATION LATCH

Pllcmd(2) = &B000000000000011000110                         'FUNCTION LATCH

Pllcmd(3) = &B000000000000010000000                         'REFERENCE COUNTER LATCH  1/32

Pllcmd(4) = &B100000010111010011101                         'AB COUNTER LATCH         1/2983  2976+7

Pllcmd(5) = &B000000000000011000010                         'FUNCTION LATCH



For I = 1 To 5

    Reset Portd.3

    Shiftout Portd.4 , Portd.5 , Pllcmd(i) , 1

    Set Portd.3

Next I



End